home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8505.arc / PWRRTST.PAS < prev    next >
Pascal/Delphi Source File  |  1986-09-14  |  384b  |  20 lines
  1. PROGRAM PWRTST;
  2.  
  3. {This is a driver program to test out function PWRR(X,Y), where
  4. X,Y, and PWRR are type REAL.  See the header on the function (and
  5. the article) for more information.}
  6.  
  7.  
  8. VAR X,Y,Z: REAL;
  9.  
  10. {$I PWRR.PAS}
  11.  
  12. BEGIN
  13.  
  14.   WRITELN('Enter X and Y');
  15.   READLN(X,Y);
  16.   Z := PWRR(X,Y);
  17.   WRITELN(Z)
  18.  
  19. END.
  20.